home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Information / WebSites / WebSites < prev    next >
Text File  |  2000-11-06  |  1KB  |  45 lines
  1. /* */
  2.  
  3. options results
  4. address command
  5.  
  6. 'Version >NIL: LIBS:openurl.library'
  7. if RC = 0 then do
  8.     'Which >NIL: OpenURL'
  9.     if RC = 0 then do
  10.         'OpenURL AACD.html FILE'
  11.         exit
  12.         end
  13.     end
  14.  
  15. call pragma('D',':')
  16. CDName = pragma('D')
  17. if ~show('P','AWEB.1') then do
  18.  
  19.     Browser = CDName'AACD/Information/Browsers/AWeb3/AWebDemo'
  20.     'Assign >NIL: AWeb3: EXISTS'
  21.     if RC = 0 then do
  22.         'Version >NIL: AWeb3:AWeb-II 3 3'
  23.         if RC = 0 then do
  24.             Browser = 'AWeb3:AWeb-II'
  25.             if ~exists('ENVARC:AWeb3/Amigactive') then do
  26.                 'Makedir >NIL: ENVARC:AWeb3/Amigactive'
  27.                 'Makedir >NIL: ENV:AWeb3/Amigactive'
  28.                 'copy >NIL: AACD:System/Prefs/Env-Archive/AWeb3DEMO/AmigActive/#? ENVARC:AWeb3/Amigactive clone'
  29.                 'copy >NIL: AACD:System/Prefs/Env-Archive/AWeb3DEMO/AmigActive/#? ENV:AWeb3/Amigactive clone'
  30.                 end
  31.             end
  32.         end
  33.     'Run >NIL:' Browser 'Welcome.html LOCAL CONFIG Amigactive'
  34.  
  35.     do until RC = 0
  36.         'waitforport AWEB.1'
  37.         end
  38.     end
  39.  
  40. address AWEB.1
  41. 'screentofront'
  42. 'wait all'
  43. 'open file://localhost/'CDName'AACD/Information/WebSites/AACD.html target main reload'
  44.  
  45.